MODULE ckvar
	IMPLICIT NONE

	INTEGER, PARAMETER :: mxspc=60	! Max. # of species
	INTEGER, PARAMETER :: mxelem=10 ! Max. # of elements
	INTEGER, PARAMETER :: mxreac=6	! Max. # of reactions
	INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(15,100)
	
	INTEGER :: nspc,nelm,nreac
	CHARACTER(8) :: spc(mxspc)
	CHARACTER(3) :: elm(mxelem)
	REAL :: mwspc(mxspc)
	REAL :: cktmin,cktmed,cktmax	! temp ranges for CK
	REAL(dp) :: thcef(mxspc,14)	! thermodynamic coefficient from CK
	REAL(dp) :: thp(mxspc,3)	! thermodynamic properties from CK	
	REAL(dp) :: hk(mxspc),cpk(mxspc),sk(mxspc)	! H,Cp,S in SI unit
	REAL :: Ru ! Universal Gas Constant 0.001987 kcal/mol-K
	REAL(dp) :: kp(mxreac)	! equilibrium constant
	INTEGER :: ispreac(mxreac,4)	! indx of reacting species
	REAL(dp) :: nspreac(mxreac,4)	! # of reacting species
	REAL(dp) :: mfspc(mxspc)	! Mole fraction of species
	REAL(dp) :: nmspc(mxspc)		! # of mole of species
	REAL(dp) :: mfi(mxspc)		! initial mole fraction
END MODULE ckvar
